home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / mcedit10.zip / INVERSE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-01  |  2KB  |  54 lines
  1. PROCEDURE inverseMouse;
  2.  
  3. var
  4.   inversemasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   inversemasks[0,0] := $9FFF;    {1001111111111111}
  12.   inversemasks[0,1] := $AFFF;    {1010111111111111}
  13.   inversemasks[0,2] := $B7FF;    {1011011111111111}
  14.   inversemasks[0,3] := $BBFF;    {1011101111111111}
  15.   inversemasks[0,4] := $BDFF;    {1011110111111111}
  16.   inversemasks[0,5] := $BEFF;    {1011111011111111}
  17.   inversemasks[0,6] := $BF7F;    {1011111101111111}
  18.   inversemasks[0,7] := $BFBF;    {1011111110111111}
  19.   inversemasks[0,8] := $BFDF;    {1011111111011111}
  20.   inversemasks[0,9] := $BE0F;    {1011111000001111}
  21.   inversemasks[0,10] := $B6FF;   {1011011011111111}
  22.   inversemasks[0,11] := $AB7F;   {1010101101111111}
  23.   inversemasks[0,12] := $9B7F;   {1001101101111111}
  24.   inversemasks[0,13] := $FDBF;   {1111110110111111}
  25.   inversemasks[0,14] := $FDBF;   {1111110110111111}
  26.   inversemasks[0,15] := $FE3F;   {1111111000111111}
  27.  
  28. { Cursor Mask }
  29.  
  30.   inversemasks[1,0] := $0000;    {0000000000000000}
  31.   inversemasks[1,1] := $2000;    {0010000000000000}
  32.   inversemasks[1,2] := $3000;    {0011000000000000}
  33.   inversemasks[1,3] := $3800;    {0011100000000000}
  34.   inversemasks[1,4] := $3C00;    {0011110000000000}
  35.   inversemasks[1,5] := $3E00;    {0011111000000000}
  36.   inversemasks[1,6] := $3F00;    {0011111100000000}
  37.   inversemasks[1,7] := $3F80;    {0011111110000000}
  38.   inversemasks[1,8] := $3FC0;    {0011111111000000}
  39.   inversemasks[1,9] := $3E00;    {0011111000000000}
  40.   inversemasks[1,10] := $3600;   {0011011000000000}
  41.   inversemasks[1,11] := $2300;   {0010001100000000}
  42.   inversemasks[1,12] := $0300;   {0000001100000000}
  43.   inversemasks[1,13] := $0180;   {0000000110000000}
  44.   inversemasks[1,14] := $0180;   {0000000110000000}
  45.   inversemasks[1,15] := $0000;   {0000000000000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(inversemasks);
  50.   regs.ES := seg(inversemasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.